﻿Public Class ClsUcnGridUnboundItemUnitsForImportExport
    Inherits ClsUcnGridUnboundItemBasic
    'represents TreeList row in UcnGridUnbound usercontrol - properties of unites for import & export

#Region "Attributes"
#Region "Private attributes"
    Private MsHumanUnitName As String 'human unit name
    Private MsUnitName As String 'unit name
    Private MsPath As String 'unit name
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IiParentRowID As Integer, ByVal IbEnabled As Boolean, ByVal IbSelected As Boolean, ByVal IsHumanUnitName As String, ByVal IsUnitName As String, ByVal IsPath As String)
        MyBase.New(IiRowID, IiParentRowID, IbEnabled, IbSelected)

        MsHumanUnitName = IsHumanUnitName
        MsUnitName = IsUnitName
        MsPath = IsPath
    End Sub
#End Region

#Region "Properties"
#Region "Public properties"
    Public Property HumanUnitName() As String
        Get
            Return MsHumanUnitName
        End Get
        Set(ByVal IsValue As String)
            MsHumanUnitName = IsValue
        End Set
    End Property
    Public Property UnitName() As String
        Get
            Return MsUnitName
        End Get
        Set(ByVal IsValue As String)
            MsUnitName = IsValue
        End Set
    End Property
    Public Property Path() As String
        Get
            Return MsPath
        End Get
        Set(ByVal IsValue As String)
            MsPath = IsValue
        End Set
    End Property
#End Region
#End Region

End Class



